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-- File: menudefs.mesa Edited by Sandman on March 6, 1978 11:08 PM 

DIRECTORY 

StreamDefs: FROM "streamdef s" , 
SegmentDefs: FROM "segmentdef s" , 
RectangleDefs: FROM "rectangledef s M ; 

DEFINITIONS FROM StreamDefs, RectangleDefs; 

MenuDefs: DEFINITIONS ■ 

BEGIN 

MenuLeftMargin: CARDINAL » 5; 

MenuHandle: TYPE ■ POINTER TO MenuObject; 

MenuObject: TYPE - RECORD [ 
link: MenuHandle, 
index: INTEGER, 
width: xCoord, 
rectangle: Rptr, 

menuseg, dataseg: SegmentDefs. FileSegmentHandle, 
array: MenuArray]; 

MenuArray: TYPE - DESCRIPTOR FOR ARRAY OF Menultem; 

Menultem: TYPE - RECORD [ 
keyword: STRING, 
proc: PROCEDURE [UNSPECIFIED, xCoord, yCoord]]; 

-- Procedures Implementing Menus 

CreateMenu: PROCEDURE [array: MenuArray] RETURNS [menu: MenuHandle]; 
DestroyMenu: PROCEDURE [menu: MenuHandle]; 
DisplayMenu: PROCEDURE 

[menu: MenuHandle, mapdata: BMHandle, x: xCoord, y: yCoord]; 
ClearMenu: PROCEDURE [menu: MenuHandle]; 
MarkMenuItem: PROCEDURE [menu: MenuHandle, index: INTEGER]; 

END. of MenuDefs 


